home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)td.d64 / func.rms < prev    next >
Text File  |  2007-02-28  |  366b  |  16 lines
  1. 0590 ╞╒╬├ RMS(╥┼╞ ARRAY()) ├╠╧╙┼─
  2. 0600   // DOES A ROOT-MEAN-SQUARE
  3. 0610   // CALCUATION ON AN ARRAY WHOSE
  4. 0620   // LOWEST ELEMENT IS NUMBERED (1).
  5. 0630   ╘╥┴╨ 
  6. 0640     COUNT:=0
  7. 0650     SUM:=0
  8. 0670     ╠╧╧╨ 
  9. 0680       COUNT:+1
  10. 0690       SUM:+╙╤╥(ARRAY(COUNT))
  11. 0700     ┼╬─╠╧╧╨ 
  12. 0710   ╚┴╬─╠┼╥ 
  13. 0720     ╥┼╘╒╥╬ (SUM/(COUNT-1))^2
  14. 0760   ┼╬─╘╥┴╨ 
  15. 0770 ┼╬─╞╒╬├ RMS
  16.